home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00276_Script_popUpClH < prev    next >
Text File  |  1999-03-07  |  4KB  |  136 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. global currentChartName, popbgSpriten
  3. property xcBackplate, xcHilite, xcPopup, xcTriangle, xcBehavior
  4. on getPropertyDescriptionList
  5.   set description=[:]
  6.   
  7.   addProp description,#xcBehavior,[#default:"",#format:#integer, ¼
  8.   #comment:"The popups behavior"]
  9.   addProp description,#xcPopup,[#default:"",#format:#integer, ¼
  10.   #comment:"The popup sprite "]
  11.   addProp description,#xcHilite,[#default:"",#format:#integer, ¼
  12.   #comment:"The Hilite sprite "]
  13.   addProp description,#xcBackplate,[#default:"",#format:#integer, ¼
  14.   #comment:"The backplate sprite "]
  15.   addProp description,#xcTriangle,[#default:"",#format:#integer, ¼
  16.   #comment:"The triangle sprite "]
  17.   return description
  18. end
  19.  
  20. on get behaviorDescription
  21.   return "Generic popup"
  22. end
  23. --on new me
  24. --  set mySpriten = the spriteNum of me
  25. --  set popSpriten = xcPopup
  26. --  set popbgSpriten = xcBackplate
  27. --  set right = (the left of sprite mySpriten)
  28. --  set top = (the top of sprite mySpriten)
  29. --  set thePopLocn = point(right, top)
  30. --  put "b"&&xcBehavior&&xcPopup&&xcHilite&&xcBackplate&&xcTriangle
  31. --  if xcBehavior < 10 then
  32. --    set popNamen = "mdl_field"
  33. --  else
  34. --    if xcBehavior < 20 then    
  35. --      set popNamen = "fraction_field"
  36. --    else
  37. --      if xcBehavior < 30 then    
  38. --        set popNamen = "bjsmdl_field"
  39. --      end if
  40. --    end if
  41. --  end if
  42. --  put popNamen & "is the field" & string(xcBehavior) & "is the action"
  43. --  
  44. --  puppetSprite popSpriten, true  
  45. --  set faraway = point(-1000, -1000)
  46. --  set the loc of sprite popSpriten = faraway
  47. --  return me
  48. --end
  49.  
  50. on register me, theObj
  51.   set fieldObjn = theObj
  52.   set mySpriten = the spriteNum of me
  53.   set popSpriten = xcPopup
  54.   set popbgSpriten = xcBackplate
  55.   set right = (the left of sprite mySpriten) + 15
  56.   set top = (the top of sprite mySpriten) + 10
  57.   set thePopLocn = point(right, top)
  58.   --  put "b"&&xcBehavior&&xcPopup&&xcHilite&&xcBackplate&&xcTriangle
  59.   if xcBehavior < 10 then
  60.     set popNamen = "mdl_field"
  61.   else
  62.     if xcBehavior < 30 then    
  63.       set popNamen = "fraction_field"
  64.     else
  65.       if xcBehavior < 40 then    
  66.         set popNamen = "bjsmdl_field"
  67.       end if
  68.     end if
  69.   end if
  70.   --put popNamen & "is the field" & string(xcBehavior) & "is the action"
  71.   
  72.   puppetSprite popSpriten, true  
  73.   set faraway = point(-1000, -1000)
  74.   set the loc of sprite popSpriten = faraway
  75.   return xcHilite
  76. end 
  77.  
  78. on mouseEnter
  79.   set the member of sprite xcTriangle to "arrowglow.hlt"
  80. end mouseEnter
  81. on mouseLeave
  82.   set the member of sprite xcTriangle to "arrowglow"
  83. end mouseLeave
  84.  
  85. on mouseDown me
  86.   set the member of sprite popSpriten = member popNamen
  87.   set the loc of sprite popSpriten = thePopLocn
  88.   set the member of sprite popbgSpriten = member popNamen
  89.   set the loc of sprite popbgSpriten = thePopLocn
  90.   --put "popped - " & thepoplocn
  91.   updateStage
  92.   repeat while the stillDown
  93.     checkIfInside fieldObjn
  94.   end repeat
  95.   
  96.   set the loc of sprite popSpriten = faraway
  97.   set the loc of sprite popbgSpriten = faraway
  98.   
  99.   
  100.   set name = getPlaneName(fieldObjn)
  101.   if name = "" then 
  102.     nothing
  103.   else
  104.     case xcBehavior of
  105.       0:
  106.         disbjs(name)
  107.       1:
  108.         set the text of field "displane" = string(name)
  109.         dispricing(name)
  110.       21:
  111.         disbjsfraction(name,1)
  112.       22:
  113.         disbjsfraction(name,2)
  114.       23:
  115.         disbjsfraction(name,3)
  116.       31:
  117.         disbjscol(name,1)
  118.       32:
  119.         disbjscol(name,2)
  120.       33:
  121.         disbjscol(name,3)
  122.     end case
  123.   end if
  124.   
  125.   
  126.   set the loc of sprite popSpriten = faraway
  127.   set the loc of sprite popbgSpriten = faraway
  128.   
  129.   updateStage
  130. end
  131.  
  132. on mouseUp me
  133.   
  134.   nothing
  135. end 
  136.